Option Explicit
Sub F_Sample057()
    'Oracle Objects for OLE (OO4O) 
    Dim myOraSs   As Object
    Dim myOraDb   As Object
    Dim myOraDnst As Object
    Dim i         As Long
    Dim j         As Long
    Set myOraSs = CreateObject("OracleInProcServer.XOraSession")
    'wnsA
    Set myOraDb = myOraSs.OpenDatabase("ServerName", "scot/tiger", 0&)
    'wno
    Set myOraDnst = myOraDb.DbCreateDynaset("SELECT * FROM tdH", 0&)
    Worksheets.Add					'u@sW
    With myOraDnst
        'W
        For i = 1 To .Fields.Count
            Cells(1, i).Value = .Fields(i - 1).Name
        Next
        For i = 1 To .RecordCount
            For j = 1 To .Fields.Count
                Cells(i + 1, j).Value = .Fields(j - 1).Value
            Next
            .MoveNext
        Next
        .Close
    End With
    myOraDb.Close
    Set myOraDnst = Nothing				'
    Set myOraDb = Nothing
    Set myOraSs = Nothing
End Sub
